home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
doors32a.zip
/
DOORSORC.INT
< prev
next >
Wrap
Text File
|
1991-02-25
|
6KB
|
158 lines
DECLARE FUNCTION FileOpen! (FileName$, Access$, Sharing, C!)
DECLARE SUB ExitDOORSYS ()
DECLARE SUB ExitRBBS ()
DECLARE SUB ExitWild ()
DECLARE SUB InitWild ()
DECLARE SUB InitDOORSYS ()
DECLARE SUB InitRBBS ()
DECLARE FUNCTION CheckTimeLeft! ()
DECLARE SUB CheckCarrier (CarrierFlag)
DECLARE SUB EchoChr (WD$)
DECLARE SUB ExtendedCode (A$)
DECLARE SUB WaitForEndSend ()
DECLARE SUB BackSpace (WD$)
DECLARE SUB BeepSpeaker ()
DECLARE SUB CalcSpaces (SpacesNeeded)
DECLARE SUB GetPort (WD$)
DECLARE SUB CheckInBuffer (CharsWaiting!)
DECLARE SUB OpenPort ()
DECLARE SUB PutPort (WD$)
DECLARE SUB ScrClr (AWD$, ClrNu!)
DECLARE SUB NL (How.Many.Times!)
DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
DECLARE SUB AllTrun (WD$)
DECLARE SUB ANSIMusic (Music$, Music)
DECLARE SUB BackSpaceOver ()
DECLARE SUB Center (WD$)
DECLARE SUB ChkKeyboard (Anyc, AWD$)
DECLARE SUB ClrScrn ()
DECLARE SUB ColorEasy (WD$, FORE, SendEnter)
DECLARE FUNCTION DayOfWeek ()
DECLARE SUB DoorBusy ()
DECLARE SUB ErrorLevelSet (Error.Level%)
DECLARE SUB ExitDoor ()
DECLARE SUB ExitPCB12 ()
DECLARE SUB ExitPCB14 ()
DECLARE FUNCTION FileExist (File.Name.Check$)
DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
DECLARE SUB HighScores (Score, PROGNAME$)
DECLARE SUB InitDoor ()
DECLARE SUB InitPCB12 ()
DECLARE SUB InitPCB14 ()
DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Select$, Slct, Barnumber)
DECLARE SUB MoveCursor (X, Y)
DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ERRCODE)
DECLARE FUNCTION RandNum (Low, High)
DECLARE SUB ReadUsers (ERRCODE)
DECLARE SUB ReadUsersSys (ERRCODE)
DECLARE SUB ScriptCMD ()
DECLARE SUB ScrUpdate ()
DECLARE SUB Sorter (ParArray$(), HowManyToSort)
DECLARE SUB SysopPage ()
DECLARE SUB TimeConvert (Hours, Minutes, NT$)
DECLARE SUB TimeCredit (TS)
DECLARE SUB Translate (FORE, BACK, T$)
DECLARE SUB ViewFile (FileName$, ChkIt, MoreP, ExitP)
DECLARE SUB WaitASec (How.Long.To.Wait)
DECLARE SUB Windows (ULR, ULC, LRR, LRC, FORE, BACK, TTFORE, TTBACK, BORDER, SHADOW, Text2$())
DECLARE SUB WriteUsers (ERRCODE)
COMMON SHARED WD$, AWD$, ARG$, SYSDPATH$, BBSName$, SysopNM$, CALLNAME$, BAUD&, TIMELEFT, CommPort$, PROGNAME$, RELEASE$, FIRST$, Last$, ANSI, SOSL$, TWE$, I1$, I2$, O1$, O2$, Out.Of.Time, Yes, No, Inverse$, Screen.Toggle
COMMON SHARED Clr.Array$(), Exit.Dor.1$, Exit.Dor.2$, UserF$, UserL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, Network, Table$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$
COMMON SHARED Parity, Filter, BusyFile$, TimeCred, SysFirst$, SysLast$, CommPort, Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, ClrNu, HotKey, Hot.Key, File.Missing$, BBSType$, Last.Time.Warning
COMMON SHARED Black, Blue, Green, Cyan, Red, Magenta, Brown, White, Gray, HiBlue, HiGreen, HiCyan, HiRed, HiMagenta, Yellow, HiWhite, Node, TabSpace, Sysop, Blink$, Normal$, Underline$, BlinkText, UnderlineText, Not.Around$, Param$
TYPE DATABLOCK
CityState AS STRING * 24
Password AS STRING * 12
BusinessPhone AS STRING * 13
VoicePhone AS STRING * 13
LastDateOn AS STRING * 20
LastTimeOn AS STRING * 5
ExpertMode AS STRING * 1
ProtocolType AS STRING * 5
LastDirListing AS STRING * 10
SecurityLevel AS INTEGER
TimesOn AS INTEGER
PageLength AS INTEGER
TotalUploads AS INTEGER
TotalDownloads AS INTEGER
DailyDownloadBytes AS DOUBLE
UserComment AS STRING * 30
SysopComment AS STRING * 30
ElapsedTime AS INTEGER
Subcription AS STRING * 20
SubcriptionExpire AS STRING * 20
AreaRegistration AS STRING * 50
AreaExpire AS STRING * 50
AreasToScan AS STRING * 50
TotalDownloadBytes AS DOUBLE
TotalUploadBytes AS DOUBLE
DeleteFlag AS STRING * 1
TimeEnteredDoor AS STRING * 5
AreaFrom AS INTEGER
MemorizedMessage AS LONG ' PCBoard only
TimeCalled AS STRING * 5 ' Wildcat and PCBoard only
DailyDownloadTotal AS INTEGER ' Wildcat only
MaxDownloadLimit AS INTEGER ' Wildcat only
LastRead AS INTEGER ' Wildcat only
MaxDownloadKLimit AS INTEGER ' Wildcat, PCBoard, and GAP only
ExpirationDate AS STRING * 10 ' GAP only
LR0 AS STRING * 4 ' Last read pointers for PCBoard only
LR1 AS STRING * 4
LR2 AS STRING * 4
LR3 AS STRING * 4
LR4 AS STRING * 4
LR5 AS STRING * 4
LR6 AS STRING * 4
LR7 AS STRING * 4
LR8 AS STRING * 4
LR9 AS STRING * 4
LR10 AS STRING * 4
LR11 AS STRING * 4
LR12 AS STRING * 4
LR13 AS STRING * 4
LR14 AS STRING * 4
LR15 AS STRING * 4
LR16 AS STRING * 4
LR17 AS STRING * 4
LR18 AS STRING * 4
LR19 AS STRING * 4
LR20 AS STRING * 4
LR21 AS STRING * 4
LR22 AS STRING * 4
LR23 AS STRING * 4
LR24 AS STRING * 4
LR25 AS STRING * 4
LR26 AS STRING * 4
LR27 AS STRING * 4
LR28 AS STRING * 4
LR29 AS STRING * 4
LR30 AS STRING * 4
LR31 AS STRING * 4
LR32 AS STRING * 4
LR33 AS STRING * 4
LR34 AS STRING * 4
LR35 AS STRING * 4
LR36 AS STRING * 4
LR37 AS STRING * 4
LR38 AS STRING * 4
LR39 AS STRING * 4
END TYPE
COMMON SHARED UserBlock AS DATABLOCK
'
'
' Door Source - Copyrighted 1988,1989, 1990 - Written by Todd Miller
' Version 3.2 - Computer City, USA
'
' ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
' PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
'
CALL InitDoor
' Door Source 3.2 init completed!